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HAYSTACK  POINTING  SYSTEM:  INTERPOLATION 


INTRODUCTION 

Ihe  Interpolation  subroutine  of  the  Haystack  Pointing  System  is  the 
last  program  to  handle  pointing  information  before  it  leaveP  the  computer. 

Ihe  subroutine  operates  in  the  two  second  cycle  of  the  Pointing  System  with¬ 
out  any  operator  intervention.  It  interpolates  for  the  required  number  of 
data  points  and  converts  the  pointing  information  into  proper  format  for  the 
external  equipment. 

The  Interpolation  program  accepts  azimuth  and  elevation  angles  computed 
at  two  second  intervals  and  Interpolates  500  values  of  each  at  4  millisecond 
intervals.  The  interpolation  is  handled  so  that  dynamic  servo  error  cor¬ 
rections  can  be  added  to  the  azimuth  and  elevation  angles.  The  program 
computes  doppler  from  range  rate,  makes  a  time  correction  for  one-way  transit 
time,  and  similarly  interpolates  to  get  500  doppler  values  for  every  two 
second  interval.  Also  the  average  range  is  computed  for  each  two  second 
interval. 


PROGRAM  INPUTS 


All  program  inputs  are  obtained  from  core  storage.  The  following  inputs 
are  required: 


W(ACQAZIM) 

W(ACQAZIM+1) 

¥(ACQAZIiyH-2) 

¥(ACQAZIM+3) 

¥(ACQELEV) 

¥(ACQELEV+1) 

¥(ACQEr,EV+2) 

¥(ACQELEV+3) 

¥(  GRANGE) 

¥(RANGED0T) 

L(AZIMADD) 

L(ELEVADD) 

L(RANGEADD) 


B27  azimuth  angle  for  Tq-2  sec  (Revolutions) 

B27  azimuth  angle  for  T^  (Revolutions) 

B27  azimuth  angle  for  Tq+2  sec  (Revolutions) 

B27  azimuth  angle  for  Tq44  sec  (Revolutions) 

B27  elevation  angle  for  Tq-2  sec  (Revolutions) 
B27  elevation  angle  for  Tq  (Revolutions) 

B27  elevation  angle  for  Tq-jS  sec  (Revolutions) 
B27  elevation  angle  for  Tq+4  sec  (Revolutions) 

BO  range  for  Tq+4  sec  (.2  jasec  of  two-way  range) 
B24  range  rate  for  Tq+4  sec  (pm /sec) 

First  location  of  azimuth  500  word  buffer 
First  location  of  elevation  500  word  buffer 
Location  of  average  range 
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L(DOPPADD)  First  location  of  doppler  500  word  buffer 

L(RADAEMODE)  Code  for  one-  or  two-way  doppler 
+  for  two-way  doppler 
-  for  one-way  doppler 

PROGRAM  OUTPUTS 


Bie  program  outputs  and  the  word  formats  are  shown  in  TABLE  I. 


TABLE  I 

PROGRAM  OUTPUTS 


Azimuth 

Elevation 

Doppler 

Range 

Bit  Positions 

0-19 

0-18 

0-20 

0-24 

Binary  Point 

B19 

BI9 

BO 

BO 

Units 

Revolutions 

Revolutions 

CPS 

.2  lisec  of 
two-way  range 

Bias 

0  =  North 

0  =  Horizon 

0  =  -750,000 

0  =  0 

Range 

0-. 999998 

0-. 999998 

-.75-+.75MC 

0-6.7  sec 

Comments 

A  one  in  Bit 
Position  19 
indicates 
overlap  zone 

Angles  below 
horizon  are 
represented  by 
360°- (angle) 

No.  of  Words 

500 

500 

500 

1 

First  Word  of 
Buffer  Specified 
By 

L(AZIMADD) 

l(elevadd) 

l(doppadd) 

l(rangeadd) 

INTERNAL  OPERATION 

Azimuth  Interpolation 

Let  us  designate  four  points  of  the  desired  antenna  azimuth  angle  by 
F  Fq,  F^,  and  F^  for  T^  -  2  sec,  T^,  T^  +  2  sec  and  T^  +  4  sec,  res¬ 
pectively.  The  values  of  azimuth  angles  between  Tq  and  Tq  +  2  sec  are  to  be 
interpolated.  The  interpolation  is  done  in  two  parts:  first,  25  equally- 
spaced  points  are  interpolated  between  Fq  and  F^  by  a  four-point  foimula,  and 
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then  9  points  will  be  inserted  between  these  interpolated  points  by  linear 
interpolation. 

The  four-point  formula,  which  will  also  insert  a  time  shift  and  perform 
dynamic  compensation,  is  of  the  form 


F(y,^) 


a. 

1 


(yj,)  Fj 


(1) 


where 

+  ^-11  +  ^-10 

^O^^k^  ^  ^03  ■*■  ^02  ^01  ■*■  ^00 

(2) 

^l^^k^  “  ^13  ■*■  ^12  ^11  ■*■  ^10 

a2(yk)  =  C23(yj^+A)3  +  C^^(y^^Af  +  C2i(yj^+A)  + 

are  the  interpolation  coefficients 

is  the  internal  between  computed  points  (2  seconds) 

is  the  normalized  time,  ^ 

^  k  h 

is  the  normalized  desired  time  shift  A  = 

h 


and 


ij 


The  remaining  points  are  computed  by  linear  interpolation 


where  g  is  an  integer  which  ranges  fron  zero  to  nine,  and  F  is  the  value 
of  the  desired  function. 

Bie  errors  due  to  these  interpolation  formulae  are  negligible  as  con- 
pared  to  the  system  error  for  typical  expected  target  trajectories. 

The  basic  quantities  that  do  the  work  are  of  Bq.  (2).  The  values 
of  the  coefficients  can  be  computed  so  that  some  of  the  dynamic  servo  error 
is  eliminated.  If  no  servo  compensation  is  desired,  the  coefficients  are 
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derived  frcm  a  third-difference  Bessel's  interpolation  formula.*  The  time 
delay  A  is  added  to  take  out  the  delays  of  the  interface  equipment  and  asyn- 
chronism  of  the  computer  and  encoder  systems. 

TABLE  II  shows  the  interpolation  coefficients  and  a  correction  term  to 
each.  15ie  servo  dynamic  error  is  expected  to  be  a  linear  combination  of  the 
antenna  angular  rates.  The  correction  term  of  each  coefficient  in  TABLE  II 
adds  a  correction  to  the  interpolated  values  of  the  form 


E 


K 


1  dt 


+ 


(M 


where 

E  is  in  degrees 
P  is  in  degrees 
Kq  is  dimensionless 


is  in  seconds 

r 

is  in  seconds^ 


is  in  seconds^. 


While  any  correction  that  is  of  the  form  of  Eq.  (^t-)  can  be  added,  the  values 

of  K.  are  related  to  the  servo  error  constants."*^  The  values  of  the  constants 
1 

will  have  to  be  measured  experimentally. 


ELEVATION  INTERPOLATION 


Ihe  elevation  pointing  angles  are  interpolated  by  the  same  method  as  the 
azimuth  angles.  Since  the  elevation  servo  response  is  expected  to  differ 
from  the  azimuth  servo  response,  the  values  of  the  correction  terms  in  the 
interpolation  coefficients  will  be  different. 

RANGE 


The  average  range  for  the  interval  between  T^  and  T^+  2  sec  is  computed  by 


"avg  =  I  (5) 

D.  R.  Hartree,  "Numerical  Analysis,"  (Oxford  University  Press,  London,  1955 

p.  68. 

^J.  G.  Truxal,  "Automatic  Feedback  Control  System  Synthesis,"  (McGraw-Hill, 
New  York,  1955 P«  82. 


Ij. 


TABLE  II 


'-13 


'-12 


'-11 


-10 


'03 


'02 


'01 


00 


'13 


12 


"11 


"10 


"23 


22 


"21 


"20 


INTERPOLATION  COEFFICIENTS 

Interpolation 

Coefficient 

-  1/6 
1/2 

-  1/3 

0 

1/2 

-  1 

-  1/2 
1 

-  1/2 
1/2 
1 

0 

1/6 

0 

-  1/6 

0 


Correction 

Terai 


^0 

T 


K. 


T 


o 

—  +  -2 
Ki 


2 

3K^ 

"  ^0  +  T" 
^0 


K, 


0 

K. 


^1 


Kg  3K^ 

"2  +  TT 


K, 


3Ki 

nr 

K, 


^0  - 


K 


i.^k 

2  k 


3K2 

~r 

3K^ 

~w~ 


^0 

~z 

\ 

nr 

K. 


"S’  +  nr 

Ki  K3 

12 +-F 
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Where  R  is  the  computed  range  at  T_  and 
0  0 


R^  is  the  computed  range  at  +2  sec. 

DOPPLER  INTERPOLATION 

At  main  bang  time,  the  radar  receiver  will  req^uest  a  doppler  frequency. 

The  frequency  that  it  expects  to  get  should  correspond  to  the  doppler  shift 

due  to  the  instantaneous  range  rate  at  the  time  the  radar  pulse  hits  the 

target.  Hence,  the  doppler  shift  should  be  computed  for  one-way  transit 

time  later  than  when  it  is  requested.  Since  the  range  is  a  slowly-varying 

function,  and  since  the  doppler  shift  is  approximately  a  linear  function  of 

time,  we  can  compute  the  one-way  transit  time  and  an  average  doppler  rate 

and  add  their  product  to  the  doppler  frequency  at  main  bang  time. 

* 

The  one-way  doppler  shift  is  approximated  by 


D  =  -  §  (1  -  B)  fo 


(6) 


where 


D  is  the  doppler  shift  (cps) 

C  is  the  speed  of  light  (nm/sec) 
fo  is  the  transmitted  frequency  (cps) 
R  is  the  range  rate  (nm/sec) 


When  the  one-way  transit  time  is  added  into  the  calculations,  Eq.  (6)  be- 
ccnies 


D 


one-way 


(7) 


F.  W.  Sears  and  M.  W.  Zemansky,  "College  Hiysics,"  (Addis on- Wes ley, 
Cambridge,  Massachusetts,  1952 ),p.  ^03. 
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The  two-way  doppler  is  twice  Eq,.  (7)^  or 


D 


two-way 


(8) 


Four  values  of  range  rate  are  converted  to  doppler  by  Eq.  (7)  or  (8) 
depending  whether  one-or  two-way  doppler  was  requested,  and  250  points  per 
second  are  interpolated  as  is  done  in  the  azimuth  -  elevation  calculations 
by  computing  25  points  per  second  with  the  four- point  formula  and  linearly 
interpolating  for  the  remaining  points .  In  the  doppler  interpolation,  no 
dynamic  compensation  is  required;  thus,  the  coefficients  C. .  are  given  by 
the  first  colxmin  of  TABLE  II. 

The  interpolation  formulae  contribute  no  measurable  errors  in 
doppler  shift. 

PROGRAM  DETAILS 

The  interpolations  can  be  speeded  up  by  working  with  the  differences 
of  the  function  values.  This  suggests  the  following  transformation; 


F(y)  =  a_^(y)F_^4aQ(y)PQ+  a^(y)F^  + 


(9) 


=  a_3^(y)(F_i-FQ)  +  a^(y)(F^-  Fq)  +  a^CF^-F^)  +  F^. 


2^  2  0 


Here  only  three  multiplications  are  required  instead  of  the  four  in 
the  original  fom. 

The  program  for  computing  this  interpolation  consists  of  two  main  parts  - 
an  initialization  pprtion  and  an  interpolation  portion.  The  initialization 
portion  is  used  while  the  Pointing  System  is  being  initialized  and  the  inter¬ 
polation  portion  is  used  in  every  two  second  cycle.  Since  the  interpolation 
portion  of  the  program  has  to  run  very  fast^  a  lot  of  computations  were  done 
in  the  initialization  portion  of  the  program. 

Figure  1  shows  the  flow  chart  of  the  initialization  portion  of  the 
program.  This  portion  of  the  program  contains  a  subroutine  (INITSUB)  which 
computes  the  51  values  of  a^(y).  Ihe  subroutine  requires  that  the  starting 
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13-62-30871 


No 


y  =  y  +  Ay 


No 


Third  i  ? 


Yes 


Fig.  1.  Flow  chart  of  the  initialization  portion  of  interpolation  subroutine. 
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value  of  y  be  stored  in  core  storage  and  the  first  location  of  the  table  for 

^j^(y)  ill  ihs  lower  half  of  the  A  register.  The  order  of  the  coefficients 

a^(y)  which  the  subroutine  conputes  is:  a_^(y^),  aj^(y^),  a^Cy^),  a_^(y2), 

control  program  which  uses  this  subroutine  simply 

moves  the  values  of  C. .  into  the  location  which  the  subroutine  has  set  aside 

10 

for  them  and  sets  the  initial  value  of  y  to  the  timing  delay  associated  with 
the  particular  variable.  The  control  program  does  this  for  azimuth,  eleva¬ 
tion  and  doppler. 

Since  the  initialization  portion  of  the  program  is  run  only  once  during 
a  pass,  no  effort  was  made  to  make  the  program  fast.  The  required  time  for 
interpolation  program  initialization  is  a  fraction  of  a  second. 

The  interpolation  portion  of  the  program  is  flow  charted  in  Fig.  2.  It 
also  contains  a  subroutine.  The  subroutine  (IWTSUB)  interpolates  51  values 
of  the  function  and  fills  in  9  points  between  these  values  by  linear  inter¬ 
polation.  The  subroutine  requires  the  values  (F  ■  F^),  (F^  -  Fq),(F2  -  Fq), 
and  F_.  In  addition,  the  location  of  the  table  of  a. (y)  and  the  location  of 
the  output  buffer  must  be  specified  by  index  registers  and  B5,  respectively. 
The  program  which  controls  this  subroutine  (INTERP),  supplies  the  values  of 
(F  ^  -  Fq),(Fj^  -  Fq),  (F^  -  Fq),  and  F^  to  the  subroutine  and  loads  index 
registers  b4  and  B5  with  proper  table  locations.  The  azimuth  and  elevation 
angles  are  compared  to  maximxmi  and  minimimi  limits  and  sent  to  the  INTERP  sub¬ 
routine  which  computes  the  required  pointing  angles .  The  doppler  values  are 
first  computed  from  range  rate,  and  then  the  subroutine  is  used. 

The  interpolation  portion  of  the  interpolation  routine  was  made  as  fast 
as  possible.  Some  portions  were  coded  several  times  in  order  to  save  time 
which  is  required  for  looping  instructions .  The  running  time  of  the  inter¬ 
polation  portion  of  the  program  was  measured  to  be  l40  milliseconds  for  a 
particular  test  run.  The  timing  will  vary  slightly  for  different  input 
functions . 

The  complete  listing  of  the  interpolation  program  is  given  in  the 
Appendix . 
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Fig.  2 


,  Flow 


chart  of 


the  interpolation  portion  of  subroutine. 
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Some  of  the  variables  one  might  want  to  change  are: 


W(DELAZ) 

Azimuth 
timing  delay 

B27  in  fractions  of  2  sec  interval 
(Present  value  in  program  is  I.806  m  sec 

W(DELEL) 

Elevation 
timing  delay 

B27  in  fractions  of  2  sec  interval 
(Present  value  in  program  is  1.8l2  m  sec 

W(DEIDOP) 

Doppler 
timing  delay 

B27  in  fractions  of  2  sec  interval 
(Present  value  in  program  is  O) 

W(CAZ) 

Azimuth 

interpolation 

coefficients 

B27  in  the  order  ‘ 

(Present  valtes  in  program  are  the  ones 
given  in  TABLE  II  colvimn  labeled  inter¬ 
polation  coefficient) 

W(CEL) 

Elevation 

interpolation 

coefficients 

B27  in  the  order  ^20'^2V^22’^2y^10’ ‘ ' 

(Present  values  in  program  are  the  ones 
given  in  TABLE  II  column  labeled  inter¬ 
polation  coefficient) 

W(CDOP) 

Doppler 

interpolation 

coefficients 

B27  in  the  order  ^20^ ^21^  ^22^  ^23'’ ^10^ '*  * 

(Present  values  in  program  are  the  ones 
given  in  TABLE  II  column  labeled  inter¬ 
polation  coefficient) 

W(EIMIN) 

Minimimi 

allowable 

elevation 

B27  in  revolutions 

(Present  value  in  program  is  -1.8°) 

¥(EIMAX) 

Maximum 

allowable 

elevation 

B27  in  revolutions 

(Present  value  in  program  is  90  ) 

W(AZMIN) 

Minimum 

allowable 

azimuth 

B27  in  revolutions 

(Present  value  in  program  is  -115.2°) 

W(AZMAX) 

Maximum 

allowable 

azimuth 

B27  in  revolutions 

(Present  value  in  program  is  475-2  ) 
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INTER 


LABEL 

LOC 

ASSiSSllll 

OOOOA 

A$S(S(I114 

0002A 

aaz 

00214 

ACQUI 

63427 

ADSCN 

63416 

ASTROOEC 

63106 

AUPEREQUAT 

63341 

AZ IMOUT 

64000 

AZIMIN 

75000 

BOUNCE 

01310 

COCON 

63414 

CONVERTIME 

63135 

COSAZEL 

63070 

COOP 

00126 

CELCOMPGM 

63424 

CHCOR 

63422 

OOPPOUT 

66000 

DAY 

63150 

DELaZ 

00062 

DELTATEE 

63316 

dumsecttg 

63154 

ELEV 

63054 

ELtVIiM 

76000 

ENDAZ 

01135 

EQUArUR 

63323 

F 

00210 

FIRSTHRIJ 

63153 

FREQUENCY 

63317 

GMTMODU2A 

63145 

HUURREG 

63151 

IDILRADIO 

67776 

ID14RADIU 

70776 

ID17RADIO 

72776 

IDICElCOR 

63000 

idiradio 

63440 

IDiSYSNAM 

77676 

ID20RADI0 

73777 

ID23RA0IU 

75776 

ID26RADI0 

76776 

ID2RADCOR 

63051 

ID2SYSENT 

77577 

ID2TIME 

63131 

iDbRADiO 

64776 

I08RADI0 

65777 

INELEVADD 

63447 

INTERAZIm 

72000 

INTERELEV 

73000 

interrange 

76777 

JUNK 

00200 

LONGITUDE 

63320 

MAINSWITCH 

63334 

APPENDIX  -  PROGRAM  LISTING 

SPURT  OUTPUT  NO.  211  . 


TE0STE*06/19/6A 


LABEL 

LOC 

LABEL 

LOC 

AS$SSS1112 

00010 

A$$SS$1113 

00020 

ASSS$S1115 

00034 

A$$$$$1116 

00040 

ACQAZIM 

63071 

ACQELEV 

63075 

ACTUAL! ImE 

63142 

AOOP 

00676 

AEL 

00445 

AESCN 

63417 

astrora 

63105 

AUCONVER 

63332 

AZ 

63071 

AZIM 

63053 

AZIHOVER 

63325 

AZIMAOO 

63442 

AZHAX 

01332 

AZHIN 

01331 

BIAS 

01335 

BLASTOFF 

63146 

CONST 

00065 

CONVERSION 

00061 

CORCT 

63420 

COSORIENT 

63065 

CAZ 

00106 

CAZIH 

63060 

CEL 

00066 

celbody 

63113 

CELEV 

63061 

CELTIME 

63133 

CHPAR 

63431 

CRANGE 

63057 

doppado 

63444 

OAT ANALYZE 

63425 

DEC 

63003 

OECOOT 

63010 

OELDOP 

00064 

OELEL 

00063 

DELY 

00177 

OSECONOS 

63141 

OYDMP 

63421 

EL 

63075 

ELEVOUT 

65000 

ELEVAOO 

63443 

ELHAX 

01330 

ELHIN 

01327 

enoazbounc 

01142 

ENOEL 

01150 

ESTSHIFTEO 

63143 

EXPNAME 

63350 

FIRST 

00201 

FIRSTELEV 

63104 

FLATTENING 

63337 

framesize 

63101 

geocenlat 

63322 

GEODETLAT 

63321 

GMTSHIFTEO 

63144 

HOURMINUTE 

63137 

HEIGHT 

63326 

lOlORAOIO 

66777 

I012RA0IO 

67777 

I013RAOIO 

70775 

I015RA0I0 

71776 

IO16RAOIO 

71777 

ioibradio 

72777 

I019RA0IO 

73776 

IDlENTPNT 

63410 

lOlRAOCOR 

63050 

lOlRECRO 

63210 

lOlSYSENT 

77576 

lOlSYSPAR 

63310 

iDlTIME 

63130 

I021RAOIO 

74776 

IO22RA0IO 

74777 

I024RA0I0 

75777 

I025RA0I0 

76775 

I02CELC0R 

63001 

I02ENTPNT 

63411 

I02RA0IO 

63441 

I02RECR0 

63211 

ID2SYSNAM 

77677 

I02SYSPAR 

63311 

I03RAOIO 

63776 

I04RA0I0 

63777 

I06RA0I0 

64777 

I07RA0IO 

65776 

ID9RADI0 

66776 

INAZIMAOO 

63446 

INI TSUb 

00146 

INTER 

63413 

INTERCOM 

63426 

INTEROOPP 

74000 

INTERP 

01127 

INTERPINIT 

00002 

INTERY 

00000 

INTSUBR 

01336 

KHPERNH 

63342 

kybrdlevel 

63110 

LAP 

01326 

LSPERAU 

63336 

MCPFILLER 

71000 

MCPGM 

63412 

t 


INTER 

LABEL 

LOC 

HINREG 

PLANP 

Rl 

R4 

RAOOT 

RADIUS 

RANGEOUT 

RANGEUNIT 

ROXXX 

RECC 

RECRD 

sceltime 

SECONDS 

SINORIENT 

SRA 

startel 

SYSTAf 1 

TENTH 

TEST3 

TIMEMODE 

truetime 

VELOFLIGHT 

VIZRAl 

WFADD 

yearmonth 

63152 

63434 

00151 

00164 

63007 

63006 

70777 

01334 

63433 

00057 

63415 

63134 

63140 

63064 

63004 

01143 

63313 

01457 

01315 

63103 

63132 

63335 

63013 

63450 

63147 

SPURT  OUTPUT  NO. 


211 


TEOSTE^ 06/19/64 


LABEL 

LOC 

LABEL 

LOC 

NMPERAU 

63340 

POLE 

63324 

PRLOG 

63423 

R 

01460 

R2 

00153 

R3 

00157 

R5 

01356 

RA 

63002 

RADARHOOE 

63312 

RADIOMETER 

63102 

radiusoot 

63011 

range 

63052 

RANGEAOO 

63445 

RANGEDOT 

63062 

ROOT 

01463 

ROMTR 

63430 

RECORDSIZE 

63112 

recazim 

67000 

RECELEV 

70000 

RECFILE 

63212 

REVOLUTION 

01333 

SAZIH 

63055 

SDEC 

63005 

SECOND 

00202 

SELEV 

63056 

SIDERTlME 

63012 

SINAZEL 

63066 

SKIP 

63331 

SRADTIME 

63136 

STARTAZ 

01130 

SYSENTRIES 

77600 

SYSNAMES 

77700 

SYSTAT2 

63314 

SYSTATD 

63315 

TESTl 

01303 

TEST2 

01311 

TEST5 

01322 

TIMECORR 

63107 

TIMEP 

63435 

TRUERANGE 

63063 

TTYSTATUS 

63111 

UKS 

00056 

VIZDECl 

63014 

VIZ0EC2 

63016 

VIZRA2 

63015 

WFORD 

63432 

WFFREQ 

63333 

Y 

00060 

YRTRAN 

63327 

ZRTRAN 

63330 

INTER 


LABEL 

LOC 

intfry 

00000 

ASSSSVll 12 

00010 

ASSSSS1113 

00034 

RCCC 

000  57 

DELAZ 

00062 

CONST 

00065 

COOP 

00126 

K2 

00153 

DELY 

00177 

SECOND 

00202 

AEL 

00445 

startaz 

01130 

STARTEL 

01143 

BOUNCE 

01310 

TEST5 

01322 

ELMAX 

01330 

REVOLUTION 

01333 

INTSUBR 

01336 

R 

01460 

ID2CELCOR 

63001 

SRA 

63004 

RAuOT 

63007 

SIDERTIME 

63012 

VIZRA2 

63015 

ID2RADCOK 

63051 

ELtV 

63054 

CRANGC 

63057 

RANGEOOT 

63062 

COSORICNT 

63065 

ACQAZIM 

63071 

EL 

63075 

T IMEMOOE 

63103 

ASTROOEC 

63106 

TTYSTATUS 

63111 

IDITIME 

63130 

CELTIME 

63133 

SRADTIME 

63136 

□SECONDS 

63141 

GMTSHIFTED 

63144 

YEARMONTH 

63147 

minreg 

63152 

idirecrd 

63210 

IDISYSPAR 

63310 

SYSTATl 

63313 

DELTATEE 

63316 

geodetlat 

63321 

POLE 

63324 

YRTRAN 

63327 

AUCOnVER 

63332 

veloflight 

63335 

NMPERAU 

63340 

SPURT  OUTPUT  NO.  212 


TE0STE*06/19/6A 


LABEL 

LOC 

LABEL 

LOC 

INTERPINIT 

00002 

A$$SS$1111 

00004 

AS$iSS1113 

00020 

aSS$SS1114 

00024 

ASSSSSl 116 

00040 

UKS 

00056 

Y 

00060 

CONVERSION 

00061 

DELEL 

00063 

deldop 

00064 

CEL 

00066 

CAZ 

00106 

INI TSUB 

00146 

R1 

00151 

R3 

00157 

R4 

00164 

JUNK 

00200 

FIRST 

00201 

F 

00210 

aaz 

00214 

ADOP 

00676 

INTERP 

01127 

ENOAZ 

01135 

ENDAZBOUNC 

01142 

ENDEL 

01150 

TESTl 

01303 

TEST2 

01311 

TEST3 

01315 

LAP 

01326 

ELMIN 

01327 

AZMIN 

01331 

AZMAX 

01332 

RANGEUNIT 

01334 

BIAS 

01335 

R5 

01356 

TENTH 

01457 

ROOT 

01463 

IDICELCOR 

63000 

RA 

63002 

DEC 

63003 

SDEC 

63005 

RADIUS 

63006 

DECDOT 

63010 

radiusdot 

63011 

VIZRAl 

63013 

VIZDECl 

63014 

VIZDEC2 

63016 

IDIRADCOR 

63050 

RANGE 

63052 

azim 

63053 

SAZIM 

63055 

SELEV 

63056 

CAZIM 

63060 

CELEV 

63061 

trueRange 

63063 

SINORIENT 

63064 

SINAZEL 

63066 

COSAZEL 

63070 

AZ 

63071 

acqelev 

63075 

FRAmESI ZE 

63101 

RADIOMETER 

63102 

FIRSTeLEV 

63104 

astrora 

63105 

TIMECORR 

63107 

kybrdlevel 

63110 

RECORDS IZE 

63112 

CELBODY 

63113 

ID2TIME 

63131 

TRUETIME 

63132 

SCELTIME 

63134 

convertime 

63135 

HOURMINUTE 

63137 

seconds 

63140 

actualtime 

63142 

ESTSHIFTED 

63143 

GMTM0DU24 

63145 

BLASTOFF 

63146 

day 

63150 

HOURREG 

63151 

FIRSTHRU 

63153 

oumsecttg 

63154 

ID2RECRD 

63211 

RECFILe 

63212 

ID2SYSPAR 

63311 

RADARHODE 

63312 

SYSTAT2 

63314 

SYStATO 

63315 

FREQUENCY 

63317 

longitude 

63320 

GEOCENLAT 

63322 

EQUATOR 

63323 

AZIMOVER 

63325 

HEIGHT 

63326 

ZRTRAN 

63330 

SKIP 

63331 

WFFREO 

63333 

MAInSWITCH 

63334 

LSPERAU 

63336 

flattening 

63337 

AUPEREQUAT 

63341 

KMPERNM 

63342 

INTER 

LABEL 

LOC 

EXPNAME 

MCPGM 

RECRD 

CORCT 

PRLOG 

INTERCOM 

CHPAR 

PLANp 

ID2RADI0 

OOPPAOO 

INELEVADD 

ID4RADI0 

Id6RADIU 

ID6RADIU 

IDIORADIO 

ID12RAOIO 

lOlARADiO 

ID15RADIU 

ID17RADIO 

ID19RADI0 

Id21RAOiO 

ID23RADIO 

ID25RADIO 

IDISYSENT 

lOlSYSNAM 

6335U 

63412 

63415 

63420 

63423 

63426 

63431 

63434 

63441 

63444 

63447 

63777 

64777 

65777 

66777 

67777 

70776 

71776 

72776 

73776 

74776 

75776 

76775 

77576 

77676 

SPURT  OUTPUT  NO. 


212 


TE0STE*06/19/64 


LABEL 

LOC 

LABEL 

LOC 

IDIENTP NT 

63410 

ID2ENTPNT 

63411 

Inter 

63413 

COCON 

63414 

AdSCN 

63416 

AESCN 

63417 

DYDMP 

63421 

CHCOR 

63422 

CELCOHPGM 

63424 

OATANALYZE 

63425 

ACQUI 

63427 

RDMTR 

63430 

MFORO 

63432 

RDXXX 

63433 

TIMEP 

63435 

IDIRADIO 

63440 

AZIMAOO 

63442 

ELEVAOD 

63443 

rangeadd 

63445 

INAZIHAOO 

63446 

WFAOO 

63450 

ID3RA0I0 

63776 

AZIMOUT 

64000 

I05RADI0 

64776 

ELEvOUT 

65000 

I07RADI0 

65776 

OOP  POUT 

66000 

I09RA0I0 

66776 

RECAZIM 

67000 

IDllRAOIO 

67776 

RECELEV 

70000 

I013RADI0 

70775 

RANGEOUT 

70777 

MCPFILLER 

71000 

I016RA0I0 

71777 

INTERAZIM 

72000 

ID18RADI0 

72777 

INTERELEV 

73000 

I020RA0I0 

73777 

INTEROOPP 

74000 

ID22RAOIO 

74777 

AZIMIN 

75000 

I024RA0I0 

75777 

ELEVIN 

76000 

ID26RA0I0 

76776 

INTERRANGE 

76777 

1 02  SY  SENT 

77577 

sysentries 

77600 

ID2SYSNAM 

77677 

SYSNAMES 

77700 

SPURT  OUTPUT  NO,  210 


INTER  TE0STE*06/ 19/64 


NO.  OF  INSTRUCTIONS  01467 


00000 

THRU 

00200 

00214 

THRU 

00214 

00445 

THRU 

00445 

00676 

THRU 

00676 

01127 

THRU 

01460 

01463 

THRU 

01463 

01466 

THRU 

01466 

.  SPURT  OUTPUT  NO.  210 

inter  TEOSTE* 06/19/64 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00000  inter 

PROGRAM  TE0STE*06/ 19/64 

UOOOl  intery 

U-TAG  IN TERP* INTERPINIT 

00000 

01127 

00002 

00002 

FO  1*InTER 

00001 

16233 

11227 

00003  INTERPINIT 

ENTRY 

00002 

61000 

OOOOO 

00004 

MOVE  80*CAZ*JUNK 

00003 

12700 

00007 

MOVE  VALUES  OF  AAZ 

00004 

10037 

00106 

00005 

14037 

00200 

00006 

72700 

00004 

• 

OCOOS 

MOVE  4*CAZ+120*JUNK^80 

00007 

12700 

00003 

00010 

10037 

00122 

00011 

14037 

00210 

00012 

72700 

00010 

• 

00006 

MOVE  1*0ELAZ*Y 

00013 

10030 

00062 

DELAZ  EQUALS  Y 

00014 

14030 

00060 

. 

00007 

ENT  A*AAZ 

00015 

11000 

00214 

OUTPUT  TABLE  IN  AAZ 

• 

00010 

RJP  INITSUB 

00016 

65000 

00146 

COMPUTE  AZIMUTH  TABLE 

• 

00011 

MOVE  80*CEL*JUNK 

00017 

12700 

00007 

MOVE  VALUES  OF  CEL 

00020 

10037 

00066 

00021 

14037 

00200 

00022 

72700 

00020 

• 

00012 

MOVE  4*CEL>120*JUNK^8D 

00023 

12700 

00003 

00024 

10037 

00102 

00025 

14037 

00210 

00026 

72700 

00024 

• 

00013 

MOVE  1*0ELEL*Y 

00027 

10030 

00063 

oelel  equals  Y 

00030 

14030 

00060 

• 

0C014 

ENT  A*AEL 

00031 

11000 

00445 

OUTPUT  TABLE  IN  AEl 

• 

0C015 

RJP  INITSUB 

00032 

65000 

00146 

COMPUTE  ELEVATION  TABLE 

• 

00016 

MOVE  80*C00P*JUNK 

00033 

12700 

00007 

MOVE  VALUES  OF  COOP 

00034 

10037 

00126 

00035 

14037 

00200 

00036 

72700 

00034 

• 

00017 

MOVE  4*CD0P^120*JUNK^80 

00037 

12700 

00003 

00040 

10037 

00142 

00041 

14037 

00210 

00042 

72700 

0004C 

• 

0C020 

MOVE  1*0EL00P*Y 

00043 

l0030 

00064 

DELoOP  *  Y 

00044 

14030 

00060 

00021 

ENT  A»AOOP 

00045 

11000 

00676 

Output  table  in  adop 

00022 

RJP  INITSUB 

00046 

65000 

00146 

COMPUTE  DOPPLER  TAbLE 

00023 

ENT  Q*W(CONST) 

00047 

10030 

00065 

00024 

ENT  A»LX(RAOARMOOE)*APOS 

00050 

11650 

63312 

CODE  IS  PLUS  FCR  2-WAY  DOPPLER 

0C025 

RSH  Q*1 

00051 

01000 

00001 

00026 

MUL  W( FREQUENCY) 

00052 

22030 

63317 

00027 

RSH  AQ»280 

00053 

03000 

00034 

BIO 

00030 

STR  Q*W(CoNVERSION) 

00054 

14030 

00061 

CONVERSION  constant  2F/C  OR  F/ 

00031 

EXIT 

00055 

61010 

00002 

00032  UKS 

0100000000 

00056 

01000 

OOOOO 

DEC  1B24 

00033  RECC 

0000014757 

00057 

COOOO 

14757 

DEC  .000006182630 

00034  Y 

0 

00060 

ooooo 

OOOOO 

INTER 


CAROS 


% 


LI  ID 

LABEL 

TA  STATEMENT 

00035 

00036 

CONVERSION 

OELAZ 

RESERVE 

0000354556 

00037 

DELEL 

0000355401 

00040 

DELDOP 

0000000000 

00041 

CONST 

1427243740 

00042 

CEL 

0000000000 

00043 

7652525252 

00044 

0000000000 

00045 

0125252525 

00046 

0000000000 

00047 

1000000000 

0C050 

0400000000 

00051 

7377777777 

U0052 

1000000000 

00053 

7377777777 

00054 

6777777777 

00055 

0400000000 

00056 

0000000000 

00057 

7525252525 

00060 

0400000000 

00061 

7652525252 

00062 

CAZ 

0000000000 

00063 

7652525252 

00064 

0000000000 

00065 

0125252525 

00066 

0000000000 

00067 

1000000000 

OUTPUT  NO.  210 
TE0STE*06/19/64 


LOC 

F  JKB 

Y 

NOTES 

00061 

00000 

00000 

00062 

00003 

54556 

DEC 

.000903827  AZ 

IHUTH  TIMING  DELAY 

00063 

00003 

55401 

DEC 

.000906827  EL 

EVATION  TIMING  DELAY 

00064 

00000 

00000 

DEC 

ING  DELAY 

0.0827  DOPPLER  TIM 

00065 

14272 

43740 

DEC 

12.364378824  2/C  E- 

00066 

00000 

00000 

6 

DEC 

0.0827  EVELATION  I 

NTERPOLATION  COEFFIC 

00067 

76525 

25252 

DEC 

-.16666667827 

00070 

00000 

00000 

DEC 

0827 

00071 

01252 

52525 

DEC 

.16666667827 

00072 

00000 

00000 

DEC 

0B27 

00073 

10000 

00000 

DEC 

1B27 

00074 

04000 

00000 

DEC 

.5B27 

00075 

73777 

77777 

DEC 

-.5B27 

00076 

10000 

00000 

DEC 

1B27 

00077 

73777 

77777 

DEC 

-.5827 

00100 

67777 

77777 

DEC 

-1B27 

OOlOl 

O4OOO 

00000 

DEC 

.5B27 

00102 

00000 

00000 

DEC 

0B27 

00103 

75252 

52525 

DEC 

-.33333333B27 

00104 

04000 

00000 

DEC 

.5827 

00105 

76525 

25252 

DEC 

-.16666667827 

00106 

00000 

00000 

DEC 

O.OB27  AZIMUTH  INT 

ERPOLATION  COEFFICIE 

00107 

76525 

25252 

DEC 

-.16666667827 

00110 

00000 

00000 

DEC 

0B27 

00111 

01252 

52525 

DEC 

.16666667B27 

00112 

00000 

00000 

DEC 

0827 

00113 

10000 

00000 

DEC 

1827 

inter 


CARDS  LI  ID  LABEL  TA 

.  OCO/0 

.  UC071 

.  00072 

.  00073 

.  00074 

.  0C075 

.  00076 

.  00077 

.  00100 

.  00101 

.  00102  CDOP 

.  00103 

.  00104 

.  00105 

.  00106 

.  00107 

.  00110 

•  00111 

.  00112 

.  00113 

.  00114 

.  00115 

.  00116 

.  00117 

.  00120 

.  00121 

.  00122  INITSUB 


STATEMENT 

0400000000 

7377777777 

1000000000 

7377777777 

6777777777 

0400000000 

0000000000 

7525252525 

0400000000 

7652525252 

0000000000 

7652525252 

0000000000 

0125252525 

0000000000 

1000000000 

0400000000 

7377777777 

1000000000 

7377777777 

6777777777 

0400000000 

0000000000 

7525252525 

0400000000 

7652525252 

entry 


SPURT  OUTPUT  NO.  210 

TEOSTE# 06/19/64 


LOC 

F  JKB 

Y 

NOTES 

00114 

04000 

00000 

DEC 

.5B27 

00115 

73777 

77777 

DEC 

-.5B27 

00116 

lOOOO 

00000 

DEC 

1B27 

00117 

73777 

77777 

DEC 

-.5B27 

00120 

67777 

77777 

DEC 

-1B27 

00121 

04000 

00000 

DEC 

.5827 

00122 

COOOO 

ooooc 

DEC 

0B27 

00123 

75252 

52525 

DEC 

-.33333333827 

00124 

04000 

OOOOC 

DEC 

.5827 

00125 

76525 

25252 

DEC 

-.16666667827 

00126 

00000 

00000 

DEC  0.0B27  DOPPLER 

ERPOLATION  COEFFICIE 

00127 

76525 

25252 

DEC 

-.16666667827 

00130 

00000 

OOOOC 

DEC 

0827 

00131 

01252 

52525 

DEC 

. 16666667827 

00132 

00000 

OOOOC 

DEC 

0827 

00133 

10000 

00000 

DEC 

1827 

00134 

C4000 

OOOOC 

DEC 

.5827 

00135 

73777 

77777 

DEC 

-.5827 

00136 

10000 

OOOOC 

DEC 

1827 

00137 

73777 

77777 

DEC 

-.5827 

00140 

67777 

77777 

DEC 

-1827 

00141 

04000 

00000 

DEC 

.5827 

00142 

00000 

ooooc 

DEC 

0827 

00143 

75252 

52525 

DEC 

-.33333333827 

00144 

04000 

00000 

DEC 

.5827 

00145 

76525 

25252 

DEC 

16666667827 

00146 

61000 

OOOOC 

LOCATION 

OF  OUTPUT  TABLE  IN 

inter 

TE0STE*06/19/64 

CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00123 

STR  A*L(R4) 

00147 

15010 

00164 

A) 

□0124 

ENT  B5*50D 

00150 

12500 

00062 

00125  R1 

ENT  B6*2 

00151 

12600 

00002 

GG126 

ENT  A*JUNK+3 

00152 

11000 

00203 

00127  R2 

STR  A*L(R3) 

00153 

15010 

00157 

00130 

SUB  A*3 

00154 

21000 

00003 

00131 

STR  A*L(R3*3) 

00155 

15010 

00162 

00132 

ENT  B7*2 

00156 

12700 

00002 

00133  R3 

ENT  Q*W(000) 

00157 

10030 

00000 

SET  TO  JUNK+3 

00134 

MUL  W(Y) 

00160 

22030 

00060 

00135 

RSH  AQ*27D 

00161 

C3000 

00033 

00136 

ADD  Q«W(B7) 

00162 

26037 

00000 

SET  TO  JUNK 

00137 

BJP  B7*R3+1 

00163 

72700 

00160 

ONE  VALUE  OF  A  COMPUTED 

00140  R4 

STR  Q*W(B6) 

00164 

14036 

OOOOC 

SET  TO  OUTPUT  TABLE 

00141 

ENT  A*4 

00165 

11000 

OOOOA 

0C142 

ADD  A*L(R3) 

00166 

20010 

00157 

00143 

BJP  B6*R2 

00167 

72600 

00153 

THREE  values  OF  A  COMPUTED 

00144 

EnT  Q*3 

00170 

10000 

00003 

00145 

RPL  Y+Q*L(R4) 

00171 

34010 

00164 

00146 

ENT  A*W(Y) 

00172 

11030 

0006C 

COMPUTE  NEW  VALUE  OF  Y 

00147 

ADD  A*W(DELY) 

00173 

20030 

00177 

0C150 

STR  A*W(Y) 

00174 

15030 

00060 

00151 

BJP  B5*R1 

00175 

72500 

00151 

51  Values  of  y  used 

00152 

EXIT 

00176 

61010 

00146 

00153  DELY 

0012172702 

00177 

00121 

72702 

DEC  .02B27  INCREMENT  0 

P  V 

00154  JUNK 

Reserve  i2D 

00200 

COOOO 

OOOOC 

r  T 

00155  AZ 

EQUALS  ACQAZIM 

00156  el 

EQUALS  ACQElEV 

00157  F 

EQUALS  JUNK^SD 

0C160  first 

equals  JUNK^l 

00161  SECOND 

EQUALS  JUNK+2 

00162  AAZ 

RESERVE  153D 

00214 

COOOO 

00000 

00163  AEL 

RESERVE  153D 

00445 

00000 

00000 

00164  AUOP 

Reserve  i53d 

00676 

COOOO 

OOOOC 

00165  INTERP 

ENTRY 

01127 

61000 

00000 

00166  STARTAZ 

ENT  A*W( AZ+3)*AP0S 

01130 

11630 

63074 

AZIMUTH  LIMITS 

00167 

JP  TEST2 

01131 

61000 

01311 

00170 

SUB  A»W(AZMAX)*APOS 

01132 

21630 

01332 

00171 

JP  ENDAZ+1 

01133 

61000 

01136 

00172 

ENT  A*W(AZMAX) 

01134 

11030 

01332 

00173  ENDAZ 

STR  A*W(AZ+3) 

01135 

15030 

63074 

00174 

ENT  A*W(AZ*3) 

01136 

11030 

63074 

OVERSHOOT  CORRECTION 

00175 

SUB  A*W(AZ*2)*AP0S 

01137 

21630 

63073 

00176 

STR  A*A 

01140 

15040 

00000 

00177 

SUB  A*W(B0UNCE)*ANEG 

01141 

21730 

0131C 

0C200  ENDAZBOUNC 

JP  TEST3 

01142 

61000 

01315 

00201  STARTEL 

ENT  A*W(EL*3)*AP0S 

01143 

11630 

63100 

ELEVATION  LIMITS 

00202 

JP  TEST5 

01144 

61000 

01322 

00203 

SUB  A«W(ELHaX)*ANEG 

01145 

21730 

01330 

00204 

ENT  A*W(ELMAX)*SKIP 

01146 

11130 

0133C 

OC205 

ENT  A*W(EL+3) 

01147 

11030 

63100 

.  SPURT  OUTPUT  NO.  210 

INTER  TE0STE»06/19/6A 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

0C2U6  ENOEL 

STR 

A*W(EL+3) 

01150 

15030 

6310C 

00207 

SUB 

A*W(EL+2)*AP0S 

01151 

21630 

63077 

OC2IO 

STR 

A*A 

01152 

150A0 

OOOOC 

00211 

SUB 

A*W( BOUNCE )*ANEG 

01153 

21730 

0131C 

00212 

JP 

TESTl 

0115A 

61000 

01303 

0C213 

ENT 

A»W(AZ) 

01155 

11030 

63071 

0021 A 

SUB 

A*W|AZ+1) 

01156 

21030 

63072 

00215 

STR 

A*W(F) 

01157 

15030 

0021c 

STORE  DIFFERENCE  qF  AZO 

00216 

ENT 

A*WUZ4^1) 

01160 

11030 

63072 

00217 

STR 

A*W(AZ)«APOS 

01161 

15630 

63071 

OC22O 

SUB 

A*200*SKIP 

01162 

21100 

0020C 

00221 

AOO 

A*  2  00 

01163 

20000 

00200 

00222 

STR 

A*W(F+3) 

0116A 

15030 

00213 

store  rounded  AZl 

00223 

ENT 

A»WUZ4^2) 

01165 

11030 

63073 

OC22A 

STR 

A#W<AZ+1) 

01166 

15030 

63072 

MOVE  AZ2 

00225 

SUB 

A*W(AZ) 

01167 

21030 

63071 

00226 

STR 

A*W(F41 ) 

01170 

15030 

00211 

store  DIFF.  AZ2 

00227 

ENT 

A*W( AZ^3) 

01171 

11030 

6307A 

OO23O 

STR 

A*W( AZ+2) 

01172 

15030 

63073 

HOVE  AZ3 

00231 

SUB 

A*W(AZ) 

01173 

21030 

63071 

00232 

STR 

A*W(F+2) 

0117A 

15030 

00212 

STORE  DIFF.  AZ3 

00233 

ENT 

A«A00 

01175 

11000 

OOAOC 

0023A 

STR 

A*W(LAP  ) 

01176 

15030 

01326 

00235 

ENT 

BA*AAZ 

01177 

12AOO 

002  lA 

SPECIFY  AZ  A  TABLE 

00236 

ENT 

B5«L(AZ IMAOO) 

01200 

12510 

63AA2 

Specify  azimuth  buffer 

00237 

RJP 

INTSUBR 

01201 

65000 

01336 

002A0 

ENT 

A*W«EL) 

01202 

11030 

63075 

002A1 

SUB 

A*W(EL+1) 

01203 

21030 

63076 

002A2 

STR 

A*W<F) 

0120A 

15030 

0021c 

store  DIFF  OF  ELO 

002A3 

ENT 

A*W(EL41) 

01205 

11030 

63076 

002AA 

STR 

A*W(EL)*APOS 

01206 

15630 

63075 

002A5 

SUB 

A»200«SKIP 

01207 

21100 

00200 

002A6 

AOO 

A*200 

01210 

20000 

00200 

002A7 

STR 

A*W(F+3) 

01211 

15030 

00213 

STORE  ROUNDED  ELI 

00250 

ENT 

A#W|EL*2) 

01212 

11030 

63077 

00251 

STR 

A*WIEL^1) 

01213 

15030 

63076 

MOVE  EL2 

00252 

SUB 

A*WIEL) 

0121A 

21030 

63075 

00253 

STR 

A*WIF+1 ) 

01215 

15030 

00211 

STORE  DIFF  EL2 

0025A 

ENT 

A*W|EL+3) 

01216 

11030 

63100 

002  55 

STR 

A*W(EL+2) 

01217 

15030 

63077 

MOVE  El3 

00256 

SUB 

A*W(EL) 

01220 

21030 

63o75 

00257 

STR 

A*W(F+2) 

01221 

15030 

00212 

STORE  DIFF  EL3 

00260 

ENT 

BA*AEL 

01222 

12A00 

00AA5 

SPECIFY  EL  A  TABLE 

00261 

ENT 

B5*L<ELEVA00) 

01223 

12510 

63AA3 

SPECIFY  Elevation  buffer 

00262 

RJP 

INTSUBR 

0122A 

65000 

01336 

00263 

ENT 

A*W(R4^1  ) 

01225 

11030 

01A61 

0026A 

STR 

A»W(R) 

01226 

15030 

01A60 

00265 

AOO 

A*W(R-f2  ) 

01227 

20030 

01A62 

00266 

AOO 

A*1 

01230 

20000 

00001 

• 

00267 

RSH 

AQ*1 

01231 

03000 

00001 

• 

00270 

ENT 

BA*L(RANGEAOO) 

01232 

12A10 

63AA5 

• 

00271 

STR 

A*W(BA) 

01233 

1503A 

00000 

AVERAGE  range  IN  INTERRaNGE 

00272 

ENT 

A*W<R+2  ) 

0123A 

11030 

01A62 

.  SPURT  OUTPUT  NO.  210 

INTER  TE0STE*06/19/6A 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00273 

STR 

A*HIr^1 ) 

01235 

15030 

01461 

00274 

ENT 

A*H(CRANGE ) 

01236 

11030 

63057 

00275 

STR 

A»H(R>2 ) 

01237 

15030 

01462 

R  VALUES  MOVED 

00276 

ENT 

A*W(ROOT) 

01240 

11030 

01463 

00277 

SUB 

A*W(rOOT+1 ) 

01241 

21030 

01464 

0C300 

STR 

A*W(F) 

01242 

15030 

0021c 

store  difference  of  RDOTO 

00301 

ENT 

Q*W(ROOT+1 ) 

01243 

10030 

01464 

00302 

STR 

Q*W(ROOT) 

01244 

14030 

01463 

MOVE  RDOTO 

00303 

ADO 

Q*H(BIAS) 

01245 

26030 

01335 

0C3U4 

STR 

Q*W(F43) 

01246 

14030 

00213 

store  rounded  and  biased 

DOPl 

OC3U5 

ENT 

A*W(K00T+2) 

01247 

11030 

□  1465 

00306 

STR 

A*H(rOOT^1) 

01250 

15030 

01464 

MOVE  RD0T2 

00307 

SUB 

A*W(R00T) 

01251 

21030 

01463 

00310 

STR 

A*H(F^1 ) 

01252 

15030 

00211 

STORE  DIF.  RD0T2 

OO3II 

ENT 

Q*W(RANGEOOT) 

01253 

10030 

63062 

00312 

HUL 

W(rECC) 

01254 

22030 

00057 

00313 

RSH 

AQ*30D 

01255 

03000 

00036 

B24 

0C314 

SUB 

Q*W(UKS) 

01256 

27030 

00056 

OO3I5 

MuL 

W(RANGEDOT) 

01257 

22030 

63062 

00316 

RSH 

Aq*24D 

01260 

C3000 

0003C 

B24 

00317 

MUL 

W(CONVERSION) 

01261 

22030 

00061 

00320 

RSH 

AQ*260 

01262 

03000 

00032 

D0P3  BB  CPS 

00321 

STR 

Q»H(R00T*2) 

01263 

14030 

01465 

MOVE  R00T3 

00322 

SUB 

Q*W(rDOT) 

01264 

27030 

01463 

00323 

STR 

Q*H(F+2 ) 

01265 

14030 

00212 

STOr  OIF.  RD0T3 

00324 

ENT 

B4*L(RANGEA00) 

01266 

12410 

63445 

00325 

ENT 

Q*W(B4) 

01267 

10034 

00000 

00326 

MUL 

W(rANGEUNIT) 

01270 

22030 

01334 

00327 

RSH 

AQ*10 

01271 

03000 

OOOlO 

TIME  B2B 

003JO 

MUL 

W(F^l) 

01272 

22030 

00211 

00331 

RSH 

AQ*280 

01273 

03000 

00034 

RANGE  correction  B8 

00332 

ADO 

q*W(F^3) 

01274 

26030 

00213 

OC333 

STR 

Q*W(F+3) 

01275 

14030 

00213 

ADO  transit  tine  DOPPLER 

CHANG 

UC334 

CL 

W(LAP) 

01276 

16030 

01326 

00335 

EnT 

B4*A00P 

01277 

12400 

00676 

SPECIFY  OOPPlER  A  TABLE 

00336 

ent 

B5*L(00PPA00) 

01300 

12510 

63444 

SPECIFY  DOPPLER  BUFFER 

00337 

RJP 

INTSUBR 

01301 

65000 

01336 

00340 

Exit 

01302 

6IO1O 

01127 

00341  TESTl 

EnT 

A*W(EL^3) 

01303 

11030 

631 OC 

00342 

STR 

A*W(EL+2) 

01304 

15030 

63077 

00343 

STR 

A»W(EL>1) 

01305 

15030 

63076 

00344 

STR 

A*H(EL) 

01306 

15030 

63075 

00345 

JP 

EN0EL*5 

01307 

61000 

01155 

00346  BOUNCE 

0010431634 

01310 

C0104 

31634 

DEC  .0167B27 

OV 

ERSHOOT  CONSTANT 

00347  TEST2 

SuB 

A»H( AZMIN)»ANEG 

01311 

21730 

01331 

00350 

JP 

ENDAZ+1 

01312 

61000 

01136 

00351 

ent 

A*W(AZMIN) 

01313 

11030 

01331 

00352 

JP 

ENOAZ 

01314 

61000 

01135 

00353  TEST3 

ENT 

A*W(AZ*3) 

01315 

11030 

63074 

00354 

STR 

A*W(AZ*2) 

01316 

15030 

63073 

CAROS 


.  SPURT  OUTPUT  NO,  210 

INTER  TE0STE*06/l9/64 


LI  10 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00355 

stR 

A*W(Az+l) 

01317 

15030 

63072 

00356 

STR 

A*W(AZ) 

01320 

15030 

63071 

00357 

JP 

ENOAZBOUNC+1 

01321 

61000 

01143 

0C360 

TESTS 

SUB 

A*W(ELMIN)«ANEG 

01322 

21730 

01327 

00361 

JP 

ENDEL-1 

01323 

61Q00 

01147 

OC362 

ENT 

A*W(ELMIN) 

01324 

11030 

01327 

00363 

JP 

ENOEL 

01325 

61000 

01150 

00364 

LAP 

0 

01326 

COOOO 

00000 

00365 

ELMIN 

7775341217 

01327 

77753 

41217 

DEC 

-.005B27 

00366 

ELMAX 

0200000000 

01330 

02000 

00000 

DEC 

.25B27 

00367 

A7MIN 

7534121727 

01331 

75341 

21727 

DEC 

-,32B27 

MI 

NIMUM 

allowable  AZIM 

0C370 

AZMAX 

1243656050 

01332 

12436 

56050 

DEC 

1.32B27 

MA 

XIMUM 

ALLOWABLE  AZIM 

00371 

REVOLUTION 

1000000000 

01333 

10000 

00000 

DEC 

1B27 

00372 

RANGEUNIT 

0000006553 

01334 

COOOO 

06553 

DEC 

.00000005B36 

•  1 

U$EC./2SEC. 

00373 

BIAS 

1334330200 

01335 

13343 

30200 

DEC 

750000, 5B8  DOPPLER 

BIAS 

AND  ROUNDInG 

0C374 

intsubr 

ENTRY 

01336 

61000 

00000 

BUFFER 

LOC  IN  B5f  A  LOC  IN 

B4 

00375 

ENT 

Q*W(F) 

01337 

10030 

00210 

00376 

MUL 

W(B4) 

01340 

22034 

00000 

00377 

RSH 

AQ*27D 

01341 

03000 

00033 

0C400 

STR 

Q*HCFIRST) 

01342 

14030 

00201 

0C4U1 

ENT 

Q*WIF+1) 

01343 

10030 

00211 

00402 

MUL 

W(l+B4) 

01344 

22034 

00001 

00403 

RSH 

AQ*27D 

01345 

03000 

00033 

0C404 

ADD 

Q*H(FIRST) 

01346 

26030 

00201 

00405 

STR 

Q*H(FIRST) 

01347 

14030 

00201 

00406 

ent 

Q*W(F<-2) 

01350 

10030 

00212 

00407 

MUL 

H(24B4) 

01351 

22034 

00002 

0C410 

RSH 

AQ*27D 

01352 

03000 

00033 

00411 

ADD 

Q*W(FIRST) 

01353 

26030 

00201 

FFIRST 

«  A-1F-1+A1F14A2F2 

00412 

STR 

Q*W(FIRST) 

01354 

14030 

00201 

FIRST 

POINT  COMPUTED 

00413 

ENT 

B6«49D 

01355 

12600 

00061 

SET  UP 

LOOP 

0C414 

R5 

ENT 

Q*W(F) 

01356 

10G30 

002  1C 

00415 

MUL 

W( 3tB4) 

01357 

22034 

00003 

00416 

RSH 

AQ*270 

01360 

03000 

00033 

00417 

STR 

Q*WISEC0N0) 

01361 

14030 

00202 

0C420 

ENT 

Q*WIF41) 

01362 

10030 

00211 

00421 

MUL 

W(4«B4) 

01363 

22034 

00004 

00422 

RSH 

Aq*270 

01364 

03000 

00033 

00423 

add 

Q*W(SEC0N0) 

01365 

26030 

00202 

00424 

STR 

Q«W( SECOND) 

01366 

14030 

00202 

00425 

ENT 

Q*W(F42) 

01367 

10030 

00212 

00426 

MUL 

WI 54B4) 

01370 

22034 

00005 

00427 

RSH 

AQ«270 

01371 

03000 

00033 

0C430 

ADO 

Q*W(SECONO) 

01372 

26030 

00202 

fSEC  « 

A-IF-14A1F14A2F2 

00431 

STR 

Q*H( SECOND) 

01373 

14030 

00202 

SECOND 

POINT  COMPUTED 

CARDS 


.  SPURT 

INTER 

LI  ID  LABEL  TA  STATEMENT 


00A32 

SUB 

Q*W(FIRST) 

0C433 

MUL 

W(  TENTH) 

0C43A 

RSH 

AO* 320 

004  3  5 

STR 

Q*W( JUNK) 

0C4i6 

ENT 

A*W(F+3) 

0C437 

ADD 

A*W(F1rST )*AP0S 

0C440 

ADD 

A»W(LAP) 

0C441 

RSH 

AO*BO 

00442 

STR 

A*W(B5) 

0C443 

LSH 

A0*8D 

0C444 

ADD 

A*W( JUNK) 

00445 

RSH 

AQ*8D 

0C446 

STR 

A*W(1+B5) 

UC447 

LSH 

A0*8D 

0C450 

ADD 

A*W( JUNK ) 

0C4  51 

RSH 

AQ*8D 

0C452 

STR 

A»W(2*»^B5) 

OC453 

LSH 

AQ*8D 

00454 

ADD 

A*W( JUNK) 

0C455 

RSH 

A0»8D 

0C456 

STR 

A*w(3+B5) 

0C457 

LSH 

A0»8D 

0C460 

ADD 

A*W( JUNK ) 

0C461 

RSH 

AQ*8D 

0C462 

STR 

A*W(4+B5) 

0C463 

LSH 

A0*8D 

00464 

ADD 

A*W( JUNK) 

0G465 

RSH 

AQ*8D 

0G466 

STR 

A*W(3*B5) 

0C467 

LSH 

A0*8D 

OC4  7  0 

ADD 

A»W( JUNK ) 

0G4  71 

RSH 

AQ»8D 

00472 

STR 

A*W(6+B5) 

00473 

LSH 

AQ*8D 

00474 

ADD 

A»W( JUNK) 

00475 

RSH 

AQ*8D 

00476 

STR 

A*w(7+B5) 

00477 

LSH 

A0*8D 

0C50O 

ADD 

A*W( JUNK) 

00501 

RSH 

AQ*8D 

00502 

STR 

A*w( 10^B5) 

00503 

LSH 

AQ*8D 

00504 

ADD 

A>W( JUNK ) 

00505 

RSH 

AQ*8D 

00506 

STR 

A*W(11*B5) 

00507 

ENT 

B4*3*B4 

00510 

ENT 

B5*  1UD+B5 

00511 

MOVE 

1*SEC0ND*FIRST 

00512 

BJP 

B6*R5 

0C513 

EXIT 

Jt 


OUTPUT  NO.  210 
TE0STE*06/19/6A 


LOC 

F  JKB 

Y 

01374 

27030 

00201 

01375 

22030 

01457 

01376 

03000 

00040 

01377 

14030 

00200 

01400 

11030 

00213 

OI4OI 

20630 

00201 

01402 

20030 

01326 

01403 

03000 

00010 

01404 

15035 

OOOOC 

01405 

07000 

00010 

01406 

20030 

00200 

01407 

03000 

00010 

01410 

15035 

00001 

01411 

07000 

00010 

01412 

20030 

00200 

01413 

03000 

00010 

01414 

15035 

00002 

01415 

07000 

00010 

01416 

20030 

00200 

01417 

03000 

00010 

01420 

15035 

00003 

01421 

07000 

00010 

01422 

20030 

00200 

01423 

03000 

00010 

01424 

15035 

00004 

01425 

07000 

00010 

01426 

20030 

00200 

01427 

03000 

00010 

01430 

15035 

00005 

01431 

07000 

00010 

01432 

20030 

00200 

01433 

03000 

00010 

01434 

15035 

00006 

OU35 

C7000 

00010 

01436 

20030 

00200 

01437 

03000 

00010 

01440 

15035 

00007 

01441 

07000 

OOOIC 

01442 

20030 

00200 

01443 

03000 

OOOIC 

01444 

15035 

OOOIC 

01445 

07000 

OOOIC 

01446 

20030 

00200 

01447 

03000 

00010 

01450 

15035 

00011 

01451 

12404 

00003 

01452 

12505 

00012 

01453 

10030 

OO2O2 

01454 

14030 

00201 

01455 

72600 

01356 

01456 

61010 

01336 

NOTES 


DIFFERENCE  BETWEEN  4P0INT  INT. 
POINTS 

FO  LINEARLY  INTERPOLATED 

FI  LIN  INT 

F2  LIN  INT 

F3  LIN  INT 

FA  LIN  INT 

F5  LIN  INT 

F6  LIN  INT 

F7  LIN  INT 

F8  LIN  INT 

TEN  VALUES  LINEARLY  INTERPOLAT 
ED 


r 


INTER 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

00514  TENTH 

3146314631 

• 

00515  R 

RESERVE 

3* 

• 

00516  ROOT 

RESERVE 

3» 

• 

00517 

RESERVE 

1 

END  OF  LISTING 


r\J 

Un 


SPURT  OUTPUT  NO.  210 

TEOSTE* 06/19/64 


LOC 

F  JKB 

Y  NOTES 

01457 

31463 

14631 

01460 

coooo 

00000 

01463 

00000 

00000 

01466 

00000 

00000 
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Security  Classification 


DOCUMENT  CONTROL  DATA  •  R&D 

(Security  cleeei/iqetion  oi  title,  body  o/  ebetrmct  end  indexing  enrtotetion  muet  be  entered  u^en  the  overeli  report  ie  clmmeitied) 


1  QRIGINATING  ACT<\/|TY  (Corpormte  euthor) 


Lincoln  Labs.y 
Lexington,  Mass. 


2e.  REPORT  SECURITY  C  LASSIFIC  A  TION 

UNCLASSIFIED 


2  b.  GROUP 


3.  REPORT  TITLE 

Hayetack  Pointing  Sytttmi  Interpolation 


J0L 


4.  DESCRIPTIVE  NOTES  (Typ»  o!  nport  antf  Inetuatva  data*) 

_ _ Gcoua -flaport _ 

5.  AUTHORfS;  (Laat  nama,  tint  nama.  Mtlal) 

Teeate,  R» 


6.  REPORT  DATE 


Oct  64 


6«.  CONTRACT  OR  GRANT  NO. 

AF19 (628)500 

b,  PROJECT  NO. 


7#  TOTAL  NO.  OF  PACES 


7b.  NO.  OF  REFS 

Q 


•  ji.  ORIGINATOR'S  REPORT  NUMBER('S; 

GR-1964-57 


fb.  NOTS;  (Any  other  numbere  thet  mey  be  meeidned 

ESD-TOR-64-565 


10.  A  VA  IL  ABILITY/LIMITATION  NOTICES 

Qualified  Requesters  Hay  Obtain  Fr 
Aval  Prom  OTS. 

om  DDC. 

11.  SUPPLEMENTARY  NOTES 

12-  SPONSORING  MILITARY  ACTIVITY 

ESD,  L*G.  Hanscom  Field,  Bedford,  Mass* 

13.  ABSTRACT 

The  Haystack  antenna  it  pointed  by  tneans  of  a  Univac  490  Computer.  In 
the  Pointing  System  program  is  incorporated  an  Interpolation  routines 
to  provide  pointing  information  250  times  a  second.  This  report  des- 
cribes  the  Interpolation  routine. 


DD 


FORM 

t  JAN  64 


1473 
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Security  Classification 


14. 


KEY  WORDS 


LINK  A 


ROLE  I  WT 


LINK  B 


.ROL^ 


WT 


LINK  C 


ROLE 


WT 


Rftdar  Antannas 
Doppitr  Data 
Analyaift 

Mathtmatical  Farmulaa 
Computer  Storage  Devices* 


INSTRUCTIONS 


1.  ORIGINATING  ACTIVITY:  Enter  the  name  and  address 
of  the  contractor,  subcontractor,  erAntee,  Department  of  De¬ 
fense  activity  or  other  organization  (corporate  author)  issuing 
the  report. 

2a.  REPORT  SECUEaiTY  CLASSIFICATION:  Enter  the  ovei^ 
all  security  classification  of  the  report.  Indicate  whether 
'^Restricted  Data”  is  included.  Marking  is  to  be  in  accord¬ 
ance  with  appropriate  security  regulations. 

26.  GROUP:  Automatic  downgrading  is  specified  in  DoD  Di¬ 
rective  5200. 10  and  Armed  Forces  Industrial  Manual.  Enter 
the  group  number.  Also,  when  applicable,  show  that  optional 
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